VB编程高手进`

来源：百度知道编辑：UC知道时间：2024/05/12 01:53:02

设M=1*2*3*……N 求M不大于20000的值。。。
该怎么写``要求用控制语句写`

Private Sub Command1_Click()
m = 1
Do
n = n + 1
m = m * n
Loop Until m * (n + 1) > 20000
Print m
End Sub

Private Sub Command1_Click()
    Dim n, m As Long
    m = 1
    For n = 1 To 20000
        m = m * n
        If m <= 20000 Then
            Print m
        Else
            Exit For
        End If
    Next
End Sub

'M=1*2*3*……N 求M不大于20000的值。。。
Private Sub Command1_Click()
Dim temp As L

VB编程高手进 VB编程高手进~~~~~~~~~~~~~ vb编程高手进~~~~~~~ vb编程高手进 vb编程高手进~ VB编程高手进` VB编程，高手进，急！ VB编程的高手进 VB编程高手进急~~~~~~~~~~ VB编程高手进 ~~~急